home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 011-020 / amok13 / compcontrol / meldung.def < prev    next >
Text File  |  1993-11-04  |  2KB  |  88 lines
  1. (******************************************************************************)
  2. (*
  3.     PROGRAMMNAME :    Meldung.mod
  4.         VERSION      :  1.00
  5.         
  6.         AUTOR  :    Ralf Kaiser
  7.                 Winckelmanstraße 1
  8.                         5600 Wuppertal 2
  9.                         0202/59 28 10
  10.                         
  11.         Start  :    29.11.88
  12.     Update :    10-12-88
  13.         Ende   :    10.12.89
  14.  
  15.  
  16. Diese Routine dient dazu, Meldungen an den Benutzer ansprechend auf den
  17. Bildschirm zu bringen. Die Meldung wird als ARRAY OF CHAR an die Routine
  18. uebergeben. Dabei dient der Oderstrich "|" als Zeilentrenner. Folgende
  19. Meldung :
  20. Das|ist ein |Test
  21. würde also so auf den Bildschirm gebracht  :
  22. Das
  23. ist ein
  24. Test
  25.  
  26. Die Meldung wird in einem borderless-Window, das genau in der Mitte des 
  27. Workbenchscreens erscheint, dargestellt.
  28. Dem Window wird dabei durch zeichnen eines zweifarbigen Randes ein 
  29. 3D-Effekt verliehen.
  30.  
  31. Zusätzlich läßt sich noch eine Zeitspanne angeben, nach der das Fenster
  32. geschloßen wird und der Programmablauf fortgesetzt wird. Diese Zeitspanne
  33. wird als INTEGER-Wert, der die Dauer in Ticks (1 Tick = 1/50 sek.) an-
  34. giebt, definiert.
  35.  
  36. *)
  37. (******************************************************************************)
  38.  
  39. DEFINITION MODULE Meldung;
  40.  
  41. FROM SYSTEM IMPORT
  42.  ADR, BYTE;
  43.  
  44. FROM Arts IMPORT
  45.  BreakPoint, Assert, TermProcedure;
  46.  
  47. FROM Strings IMPORT
  48.  Delete, Insert, Length, Occurs, Copy, first, last;
  49.  
  50. FROM DOS IMPORT
  51.  Delay;
  52.  
  53. FROM Intuition IMPORT
  54.  NewScreen, NewWindow, WindowPtr, ScreenPtr, OpenScreen, OpenWindow,
  55.  ScreenFlags, ScreenFlagSet, customScreen, WindowFlags, IDCMPFlagSet,
  56.  WindowFlagSet, CloseWindow, CloseScreen, ShowTitle;
  57.  
  58. FROM Graphics IMPORT
  59.  Text, RastPortPtr, Move, ViewModes, ViewModeSet, Draw, ScrollRaster,
  60.  SetAPen, SetRast, DrawModes, DrawModeSet, SetDrMd, jam1;
  61.  
  62. FROM IntuiStruct IMPORT
  63.  StructWindow;
  64.  
  65.             
  66. VAR     Zeile           :     ARRAY [0..10],[0..80] OF CHAR;
  67.         Zeilenlaenge    :     ARRAY [0..10] OF CARDINAL;
  68.         Laenge,Zaehler,  
  69.         ZeilenNr,   
  70.         Temp, laengste,
  71.         Temp2           :     CARDINAL;
  72.         Zeichen         :     ARRAY [0..0] OF CHAR;
  73.         win             :     WindowPtr;
  74.         nw              :     NewWindow;
  75.         rp              :     RastPortPtr;
  76.         x,y             :     INTEGER;
  77.         Mheight,Mtop,
  78.         Mwidth,Mleft    :     INTEGER;
  79.  
  80. PROCEDURE ShowMeldung (win: WindowPtr; 
  81.                        Mtext : ARRAY OF CHAR; Zeit: INTEGER);
  82.  
  83.  
  84. PROCEDURE Cleanup;
  85.  
  86.  
  87. END Meldung.
  88.